gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\admin\manuAdd.asp
<!-- #include file = "include/sysbase.asp" -->
<html>
<head>
<title>后台管理</title>
<meta http-equiv = "Content-Type" content = "text/html; charset = gb2312">
<link rel = "stylesheet" href = "include/main.css" type = "text/css">
</head>
<body text = "#000000">
<p> </p>
<p> </p>
<form method = "post" action = "manuAddSave.asp" name = "form1">
<table width = "60%" border = "1" bordercolordark = #9CC7EF bordercolorlight = #145AA0 cellspacing = "0" cellpadding = "4" align = "center">
<tr bgcolor = "#4296E7">
<td colspan = "2">
<div align = "center"><font color = "#FFFFFF">添加手机类别</font></div>
</td>
</tr>
<tr>
<td width = "41%" nowrap>
<div align = "right">类名</div>
</td>
<td width = "59%">
<input type = "text" name = "name" size = "10">
</td>
</tr>
<tr>
<td width = "41%" nowrap height = "25">
<div align = "right">父类</div>
</td>
<td width = "59%" height = "25">
<SELECT name = "SuperID">
<option value = "0">顶级类</option>
<%
dim rsObj, strSQL
dim tempName
dim i
set rsObj = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM ProductType WHERE SuperID = 0 ORDER by id"
rsObj.Open strSQL, conn, adOpenKeyset, adLockReadOnly
i = 0
do while not (rsObj.eof or err)
tempName = rsObj("name")
Response.Write "<option value = '"&rsObj("id")&"'>"&tempName&"</option>"
if i>100 then exit do
i = i+1
rsObj.MoveNext
loop
rsObj.Close
Set rsObj = Nothing
CloseConn()
%>
</SELECT>
</td>
</tr>
<tr>
<td colspan = "2">
<div align = "center">
<input type = "submit" name = "Submit" value = " 添 加 ">
</div>
</td>
</tr>
<tr bgcolor = "#4296E7">
<td colspan = "2"> </td>
</tr>
</table>
</form>
<p> </p>
</body>
</html>